Top 10k strings from Draw (1992)(Salmi, Timo).bas in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX-81 & Sinclair QL - Various / Sinclair QL - Various (TOSEC-v2006-04-09) /

Back to the directory listing

   1 530 reset(8)
   1 520 END REPeat loop
   1 510  END SELect 
   1 500  =8:EXIT loop
   1 490   clb=KEYROW(0)
   1 480   p_wait(20)
   1 470   PAPER#3,ik%:CLS#3
   1 460   IF ik%=0:BORDER#3,1,7:ELSE :BORDER#3,0,0
   1 450   IF ik%>7:ik%=0:END IF 
   1 440   ik%=ik%+1
   1 420   IF ix%>0 AND iy%>0:ix%=ix%-1:iy%=iy%-1:END IF 
   1 400   IF ix%>0:ix%=ix%-1:END IF 
   1 380   IF ix%>0 AND iy%<h%-1:ix%=ix%-1:iy%=iy%+1:END IF 
   1 360   IF iy%<h%-1:iy%=iy%+1:END IF 
   1 340   IF ix%<w%-2 AND iy%<h%-1:ix%=ix%+1:iy%=iy%+1:END IF 
   1 32260 END DEFine vsave
   1 32250  PRINT#0,"Saved"!bvl$!"version"!ver1%;".";ver%
   1 32240  LIST#3,32130 TO:CLOSE#3
   1 32230  PRINT#3,"32120  ver1%=";ver1%;":ver2%=";ver%
   1 32220  LIST#3,100 TO 32110
   1 32210  PRINT#3,"4 :"
   1 32200  PRINT#3,"3 REMark version"!ver1%;".";ver%
   1 32190  PRINT#3,"2 REMark ";DAY$!DATE$
   1 32180  PRINT#3,"1 REMark ";avl$!"(c) Timo Salmi"
   1 32170  DELETE bvl$:OPEN_NEW#3,bvl$:ver%=ver2%+1
   1 32160  bvl$=dvl$(dr)&avl$
   1 32150  dvl$(5)="ram1_":dvl$(6)="ram2_"
   1 32140  dvl$(3)="fdk1_":dvl$(4)="fdk2_"
   1 32130  dvl$(1)="mdv1_":dvl$(2)="mdv2_"
   1 32120  ver1%=1:ver2%=0
   1 32110   BEEP 4000,12:STOP:END IF 
   1 32100   PRINT#0,DAY$!DATE$!"Not saved, set SDATE"
   1 32090  IF bvl$<>1992 THEN 
   1 32080  bvl$=DATE$:bvl$=bvl$(1 TO 4)
   1 32070  LOCal avl$(42),bvl$(42),dvl$(6,5):avl$="draw"
   1 32060 DEFine PROCedure vsave(dr)
   1 32050 vsave 6:STOP
   1 32040 vsave 5:STOP
   1 32030 vsave 4:STOP
   1 32020 vsave 3:STOP
   1 32010 vsave 2:STOP
   1 32000 vsave 1:STOP
   1 320   IF ix%<w%-2:ix%=ix%+1:END IF 
   1 31990 STOP
   1 31110 END DEFine reset
   1 31100  SCALE 100,0,0:FILL 0
   1 31090  PAPER#0,0:INK#0,7-3*(i=0):INK 7:CLS
   1 31080  FOR il=0,1,2:CSIZE#il,(i=4)+2*(i=8),0:END FOR il
   1 31070  PAPER 2*(i=8):BORDER (i=4),4*(i=4)
   1 31060  WINDOW 448+8*(i=4),200+2*(i=4),32-4*(i=4),16-(i=4)
   1 31050  WINDOW#2,448,200,32,16:PAPER#2,1:INK#2,7
   1 31040  WINDOW#0,448,40-(i=4),32,216+(i=4)
   1 31030  WINDOW 512,256,0,0:PAPER 0:CLS
   1 31020  FOR il=1,2:OPEN#il,con_:END FOR il
   1 31010  LOCal il:MODE i
   1 31000 DEFine PROCedure reset(i)
   1 300   IF ix%<w%-2 AND iy%>0:ix%=ix%+1:iy%=iy%-1:END IF 
   1 3 REMark version 1.0
   1 280   IF iy%>0:iy%=iy%-1:END IF 
   1 260  SELect ON key
   1 250  key=KEYROW(1)
   1 240  BLOCK 2,1,ix%,iy%,ik%
   1 230 REPeat loop
   1 220 ix%=224:iy%=100
   1 210 WINDOW w%,h%,32,38:CLS
   1 20190 END DEFine 
   1 20180  PRINT#4,tpvm$
   1 20170  INK#4,2
   1 20160  PRINT#4,"Timo Salmi ";
   1 20150  INK#4,4
   1 20140  INK#4,6:PRINT#4,ohj$;" ";
   1 20130  CURSOR#4,5,0
   1 20120  CSIZE#4,3,1
   1 20110  BORDER#4,1,7
   1 20100  PAPER#4,0:CLS#4
   1 20090  WINDOW#4,448,22,32,16
   1 20080  OPEN#4,con_
   1 20010  reset(8)
   1 20000 DEFine PROCedure p_otsake(ohj$,tpvm$)
   1 200 w%=448:h%=200
   1 2 REMark Translated into English Sat 1992 Apr 04 18:40:59
   1 19030 END DEFine p_wait
   1 19020  FOR j=1 TO 10*i:END FOR j
   1 19010  LOCal j
   1 19000 DEFine PROCedure p_wait(i)
   1 180 PAPER#3,ik%:CLS#3
   1 170 WINDOW#3,12,10,460,22
   1 160 OPEN#3,con_
   1 130 p_otsake("DRAW"),("08.04.86")
   1 120 DIM ohj$(mp),tpvm$(8)
   1 1 REMark draw (c) Timo Salmi